home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / security / Watcher / build_pct.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-14  |  557 b   |  31 lines
  1. /*
  2.    build_pct: build a percent change format for the parser.
  3.  
  4.    Kenneth Ingham
  5.  
  6.    Copyright (C) 1988 The University of New Mexico
  7. */
  8.  
  9. #include "defs.h"
  10. #include "y.tab.h"
  11.  
  12. struct change_fmt_st *
  13. build_pct(string, number)
  14. struct number *number;
  15. char *string;
  16. {
  17.     struct change_fmt_st *p;
  18.  
  19.     p = allocate(struct change_fmt_st);
  20.     p->fmt.type = PERCENT;
  21.     p->name = string;
  22.     if (number->type == INTEGER)
  23.         p->fmt.fmt.percent = (float)number->value.integer / 100.0;
  24.     else
  25.         p->fmt.fmt.percent = number->value.real / 100.0;
  26.  
  27.     free((char *)number);
  28.  
  29.     return p;
  30. }
  31.